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EDITORIAL 


Comme le mois précédent, ce JPC est très en retard, et nous nous en excusons. Afin que cela ne se 
reproduise plus, nous avons déjà commencé à prendre des dispositions qui, si tout se passe bien, 
devraient nous permettre de résorber ce retard dès le prochain numéro. Sachez aussi que nous 
étudions aussi des méthodes visant à rétablir une participation, même symbolique, de la part de tous 
les adhérents. Ceci vous sera annoncé plus en détail dans le prochain numéro. 


Puisqu’il est (enfin !) arrivé, parlons maintenant de ce JPC. La rubrique HP28 fera-t-elle concurence 
à la HP48 ? En tous cas, elle a maintenant tout ce qu’il lui faut grâce à l’article de Guy Toublanc. 
Nous vous rappelons que la durée de vie des HP peut dépasser allègrement les 10 ans, alors pensez à 
réveiller de temps en temps votre 28, ce lui fera plaisir ! 


Depuis le mois dernier, nous avons en notre possession le dernier opus des Goodies Disks de notre 
ami Joseph K. Horn. Nous aurions pu vous annoncer cette nouvelle dans le denier numéro, mais nous 
avons préféré attendre que Jean-François Garnier aie eu le temps de l’explorer, pour vous en faire 
une présentation complète, ce qui est fait dans ce numéro. Bien sûr tous ceux qui nous ont 
commandé les Goodies n°7 n’ont pas attendu la sortie de ce numéro pour recevoir le nouvelle 
disquette ! 


Les programmeurs sur HP95 ne trouverons dans ce numéro qu’un seul article (hormis l’habituel 
correctif !). Il est cette fois-ci accompagné d’un important listing en C. Faites nous savoir si vous 
jugez que sa taille est trop importante, ou si au contraire nous pouvons en publier de plus importants 
(si, bien sûr, il présente suffisement d’elements "originaux"). Rappelez vous que si nous nous 
efforcons de publier ces listings, c’est pour que vous puissiez profiter de peu d'experience que nous 
avons et que vous puissiez réutiliser tout ou partie de ces listings pour vos propres applications. Que 
les débutants se rassurent, un bon programme C ne fait pas obligatoirement la taille de celui présenté 
aujourd’hui ! 


En attendant le prochain numéro, nous vous souhaitons bonne lecture... 


Le bureau 


P.S. : Le dessin en page 2 montre le résultat que l’on peut obtenir avec le programme d’Alexandre 
Buchmann qui est décrit quelques pages plus loin... 
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NOUVELLES FRAICHES 


Les HP95 version 512ko on vu leur prix baisser. Vous 
le trouverez maintenant en dessous de 3000 Francs 
dans vos boutiques préférées. 


Il semblerait que HP ait prévu, pour des futures 
machines, d’implanter un mode EXAM, permettant 
de "brider" de façon sûre (peut être matérielle), les 
machines au cours des examens. 


Courez chez votre libraire préféré pour savoir lequel 
de ces livres sortira en premier : Voyage au centre de 
la HP48, Tome III ou Les secrets de la HP48, Tome II. 
De toute façons, je suis sûr que vous prendrez lez 
deux ! 


Roland Sivipos, un ancien membre du club qui 
possède une petite société d’électronique, se propose 
d'étendre les possibilités vos HP48 et HP95. Pour la 
HP48, il ajoute une interface paralèlle, permettant de 
commander une imprimante ou d’effectuer des 
transferts de données rapides (drivers fournis). Pour 
le HP95, il augmente la mémoire interne en placant 
lélectronique d’une carte PCMCIA dans le faible 
espace situé entre le clavier et les cartes "normales". 
Elle est alors reconnue comme un disque "E:". Bien 
sûr, ces modifications font perdre toute garantie, mais 
la qualité du travail est assurée. Contactez le club 
pour les détails pratiques. 


Jacques Belin (123) 


COURRIER DU COEUR 


Asdin Aoufi 

Appt 2637 

9, rue Charles Garnier 

95140 GARGES LES GONNESSE 
Tel (pro) : (1) 49 40 3434 


Vend: 


HP48SX, HP42S, HP28S, prix à débattre. 


Philippe Tenand 

2 bis, rue de l'Egalité 
94300 Vincennes 
Tel: (1) 43 74 14 34 
Vend: 


HP48SX (sans manuel), livres d’application : HP-65 
Commande numérique, HP33 Applications, HP33 
Student Ingeniering, HP19/29 Finance, HP67/97 
Game of Chance; 1 module Rom HP41 Real Estate. 
Prix à débattre. 


D'autre part, Maubert Electronic nous a récement 
fourni une liste de matériel d’occasion concernant les 
HP-41 et HP-71 (machines, modules et 
périphériques). Contactez nous pour plus 
d'informations. 
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GESTIONNAIRE DE FICHIERS 


Voici quelques programmes assez simples d’intérêt 
général pour la HP2SS. Ils sont tous placés dans le 
répertoire HOME afin d’être facilement appelés. 


SDIR 


SDIR (S comme Super et DIR comme Directory) va lister 
de façon hiérachique lensemble des noms de 
répertoire et d’objets quelconques de chaque 
répertoire. Il utilise pas d’arguments placés dans la 
pile. 


« PATH DUP SIZE DUP 
SUB VARS DUP SIZE + 
lv nv 
«€ 
IFnviz 
THEN 1 nv 
FOR i lv i 
GET DUP 
IFERR RCL 
THEN EVAL 
DROP SDIR UP 1 
LIST + 
ELSE DROP 
END 
IFERR + 
THEN 
END 
NEXT 
END 


XDIR 


XDIR (X comme Execute) donne le même résultat final 
que SDIR mais permet en plus d’exécuter un 
programme (de façon systématique ou non) prat 
(donné dans la pile) et ce après chaque changement 
de (où retour à un) répertoire et d’un autre 
programme prg2 (de façon systématique ou non) pour 
chaque objet trouvé dans le répertoire actuel évalué. 


XDIR utilise 4 arguments placés dans la pile de la 
manière suivante : 


Niveau 4 : Prgl 
Niveau 3 : f1 
Niveau 2 : Prg2 
Niveau 1 : f2 
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où Prg1 et Prg2 sont les objets à évaluer, sachant que 
juste avant l'évaluation de Prg1, la pile est vide 
(stockée par sécurité et vidée à nouveau après 
lexécution de Prgt, puis restituée), et juste avant 
lévaluation de Prg2, la pile contient le nom de l'objet 
actuel détecté dans le répertoire courant: 1:objet (la 
pile est aussi préservée de l'exécution de Prg2 par la 
même méthode). Les valeurs entières f1 et f2 sont 
comprises entre 0 et 3 et ont la signification suivante : 





as d’évaluation momentanée de prai (i=1 ou 2); 
valuation momentanée de pri (i=1 ou 2); 

2: pas d’évaluation de prgi pour tout répertoire (i=1) 
ou bien objet (i=2) de niveau hiérarchique (de 
répertoire) supérieur ou égal; 

3:évaluation systématique de pra pour tout 
répertoire (i=1) ou bien objet (i=2) de niveau 
hiérarchique (de répertoire) supérieur ou égal. 


Mode d’emploi: 

Mettre initialement (en pile) fi (i=1 ou 2) égal à 1 ou 
0 est indifférent; Mettre fi (i=1 ou 2) égal à 3 ou 2 
initialement (en pile) provoque l'évaluation ou non 
(suivant fi (i=1 ou 2) ) de prg (i=1 ou 2) 
systématiquement pour tous les niveaux de répertoire. 








La syntaxe des listes obtenues est la suivante : 

2: Répertoire initial 

1:€ objet 1,objet 2,..,objet k, Répertoire {objet 1, 
objet 2,..,objet k, Répertoire 2 € objet 1,objet 2, 
objet k,..),..,Répertoire k£..}..}. 





Chaque liste incluse est précédée du nom de 
répertoire qui contient les objets et répertoires de 
cette liste. 


« 
00 prg1 f1 prg2 f2 pil obj 
« 
XPATH DUP SIZE DUP SUB CLLCD DUP 
“Repertoire” SAP -STR + 1 DISP 
IF f10 == f1 1 == 0R 
THEN 
“EVAL. [OJui, (NJon, [T], [JJamais de 
pra STR + 2 DISP DEPTH LIST ‘pil' 
sTo 
€ 
« pra EVAL » 
« pra EVAL 3 ‘f1! STO » 
«2 1f1 STO » 
2 
Do 
€ MO“ MN“ UTU Ju } WAITK UNTIL POS 
END 
LASTARG GET EVAL CLEAR pil LIST-+ DROP 
ELSE 
1Ff13= 














THEN 
DEPTH LIST ’pil’ STO prgi EVAL CLEAR pil 
LIST-+ DROP 
END 
END 
VARS DUP SIZE + Lv nv 
« 


€2 
IFnviz> 
THEN 
Tnv 
FOR i 
Lv i GET DUP 
IFERR RCL 
THEN 
EVAL DROP prg1 fi prg2 f2 XSDIR UP 1 -LIST 
+ CLLCD "Repertoire" PATH DUP SIZE DUP SUB 


«>» 
« obj prg2 EVAL 3 ‘f21 STO » 
« 2 f2! STO » 





2 
Do 
€ ou uyn 
UNTIL POS 
END 
LASTARG GET EVAL CLEAR pil LIST+ 
DROP obj 
ELSE 
IF f23== 
THEN 


fobj’ STO DEPTH -LIST 
fpil! STO obj 

prg2 EVAL CLEAR pil 
LIST+ DROP obj 











=STR + 1 DISP END 
IF f1 1 == f1 0 == OR END 
THEN END 
MEVAL. [OJui, [NIon, [TJoujours, [JJamais de " IFERR + 
prgl -STR DUP SIZE 1 - 2 SWAP SUB + 2 THEN 
DISP DEPTH LIST ’pil’ STO END 
€ NEXT 
« prg1 EVAL » END 
«>» 
« prgl EVAL 3 f1’ STO » 
« 2 ’f1’ STO » » 
2 
Do CHDIR 
€ 
“ou nr Ju Il transforme une liste obtenue par SDIR ou XDIR en 
à WAITK une chaîne indentée ou structurée et donne le nombre 
UNTIL POS de lignes (une ligne étant formée par le caractére 10 
END inséré), ce nombre est utile à PRDIR et SCTXT. 
LASTARG GET EVAL CLEAR pil LIST+ 
DROP « =STR DUP SIZE 0 O 
ELSE + chn tab ner 
1F 13 « 
THEN IF ch "€" POS n 3 > AND 
DEPTH LIST ’pil’ STO THEN 
prg1 EVAL CLEAR “min 
pil LIST+ DROP FOR i 
END ch i i SUB DUP € mçn mp 
END SUAP POS 1 + 
ELSE € 
DROP DUP "Objet ‘ SUAP «+» 
STR DUP SIZE 1 - « 
2 SWAP SUB + 2 DISP DROP 10 CHR + ner 1 + ‘ner’ 
IF f21 f20 == 0R STO tab SPC + "€" + tab 2 + tab! STO 
THEN » 
MEVALUation [0] IN] [TJ [J] du prog. " « 
prg2 +STR DUP SIZE 1 - DROP 10 CHR + ner 1 + ‘ner’ STO tab 2 - 
2 SUAP SUB + 3 ltab' STO tab SPC + "3" + 
DISP ‘obj' STO DEPTH » 
LIST ‘pil! STO > 
€ SUAP GET EVAL 
« obj prg2 EVAL » NEXT 





JPC 85 Pages — 








ner 1+2* 


PDIR 


11 donne à l'utilisateur le choix de visualiser la chaîne 
sortie par CHDIR sur imprimante ou sur écran. Le choix 
1] (touche E appuyée) exécute le programme sCTXT. 


«+ ch ner 
« 
ch 
€ 
« DUP 1 DISP PR1 » 
« ch ner SCTXT » 
2 
po 
€ 
po 
“IMPRESSION a 
[lmprimante ou & Chaine Commune 
(Elcran “a 
1 DIS 
UATIL KEY 
END 
UNTIL POS 
END 
LASTARG GET EVAL 





un + 


SCTXT 


11 demande les mêmes arguments en pile que PDIR, un 
menu d'interruption s'affiche, attendant l'appui sur 
lune des 6 touches programmées : 

- UNS] : affichage de la page suivante (scrolling de 4 
lignes vers le haut). 

- DEL] : affichage de la page précédente (scrolling de 
4 lignes vers le bas). 

- [UP] : affichage de la ligne suivante (scrolling de 1 
ligne vers le haut). 

- (DONN] : affichage de la ligne précédente ( scrolling 
de 1 ligne vers le haut ). 

- ILEFT] : affichage et positionnement sur la première 
page. 

- (RIGHT] : affichage et positionnement sur la dernière 
page. 

-L’appui sur toute autre touche fait sortir du 
programme principal (PRDIR ou SCTXT). 


SWAP DUP SIZE 1 + ner chni 
« 


po 
€ 





4 + MIN ‘i’ STO O0 » 

ncr NEG 4 + MAX ‘i’ STO 0 » 
+ MIN ‘it STO 0 » 

ner NEG 4 + MAX ‘i’ STO 0 » 
if STO 0 » 

ncr NEG 4 + ’i’ STO 0 » 


1 


» 
î 
és 
î 
1 
, 


3 
ch n i NDISP 
€ MDEL“ MINS DOWN“ MUPM MLEFT MRIGHT® } 
po 
UNTIL KEY 
END 
CLLCD POS 1 + GET EVAL 
UNTIL 
END 
CLMF 


CUT2 


C’est un sous-programme de scTxT. Il se charge de 
couper la chaîne ’ch’ de longueur ’n’ après le ’nième” 
caractère ou chaîne ’car de longueur * rencontré 
dans la chaîne ch’. cuT2 ne retourne alors que la 
partie droite de chaîne ’ch” ainsi coupée. L’exécution 
de cuT2 est proportionnelle à la valeur de ’nième”. 


0 + ch u niem car vk 
« 
IFuizviazuvt1-2 AND AND 
THEN 
tuv-1+ 
FOR i 
ch ii v+1- SUB car SAME 
« 
k1+k STO k niem > 
« chiv+uSUBuv-14+"i" STO » 
IFT 
» 
IFT 
NEXT 
END 
IFERR + 
THEN 
END 


NPOS 


Cet utilitaire n’a pas été utilisé ici mais peut rendre 
service. Il retourne la liste et le nombre de toutes les 
positions de la petite chaîne ’car’ de longueur ’nc 
rencontrée dans la chaîne ’ch’ de longueur ’nch. 
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0 0+ ch nch car ne à np 
« 


ch 1 nch SUB car 1 nc SUB + ch car 
« 


{3 
IF nch ne * nch ne 2 * nch nc == + 
THEN 
MHILE ch car POS DUP ‘’i’ STO 
REPEAT 


ch 1 i 1- SU8 ch i ne + nch ne + SUB + ‘ch’ 
STO à ne np * + + np 1 + ‘np’ STO 
END 
END np 
» 


NDISP 


Cet utilitaire est utilisé par scrxT. En entrant dans 
Vordre : 


3 : chaîne à afficher 

2 : longueur de chaîne 

1:n, valeur algébrique entière (positive ou négative) 
correspondant au numéro de ligne de l'écran (réel ou 
virtuel), sachant que la numérotation est la même 
(mais étendue) que celle utilisée pour la commande 
DISP. 


« 
+chnd 
« 
d1> 
« ch d DISP » 
«ch n1d- 10 CHR 1 CUT2 1 DISP » 
IFTE 


WAITK 
« DO UNTIL KEY END » 
UP 


<« PATH DUP SIZE 1 - DUP O == + GET EVAL » 


SPC 


IFni> 
THEN 


NEXT 
END 


Paul JEBEILY (571) 





SAGA HP28S 
BYTES & TUTTI QUANTI 


Dans Particle HP285 RETRO (JPC 84), je faisais 
allusion au problème dramatique des Memory Lost et 
fournissais une méthode fiable d'introduction des 
codes hexa à assembler. Le programme principal 
faisant ce travail comporte un assembleur en User 
Rpl. Cet assembleur ne fait pas de vérification de 
Pargument car cela est fait en amont. Il a aussi la 
possibilité pour ceux qui veulent un assembleur 
autonome d’assembler ce programme assembleur et 
dans le programme assco.28 d'appeler ce sous 
programme assembleur. Cette solution a l’avantage 
d’un encombrement mémoire moins important et 
aussi d'offrir la possibilité d’assembler des codes hexa 
non listés avec leurs sommes de contrôle. Cette 
dernière possibilité doit au moins se faire en vérifiant 
la validité de l’argument: une chaîne non nulle. Aussi 
voici une version de Asc- qui fait cette vérification et 
donne les messages : 


Too Feu Arguments si il n’y a rien sur la pile 
Bad Argument Type si ce n’est pas une chaîne 
Bad Argument Value si c’est une chaîne nulle 


En donnant cette nouvelle version de Asc+ cela me 
permet d'apporter les précisions suivantes : 


Dans les listings on trouve à la fois les adresses des 
objets internes (primitives, programmes etc.) et les 
mnémoniques correspondantes pour la HP48 quand 
cela est possible. Mais ces appellations ne doivent pas 
être considérées comme définitive car pouvant être 
remises en cause. 


Par exemple: 

- DocoL ou :: : début de structure programme. Met sur 
la pile des retours l'adresse de l’objet suivant à 
exécuter. 
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-ck1 vérifie si DEPTH >= 1 sinon renvoie Too Feu 


Arguments. 

- SAVPTR sauve DO D1 B(A) et D(A). 

- GTPTR restaure DO D1 B(A) et D(A). 

- Errjmp arrête tout en affichant le message de l'erreur 
dont le numéro est dans A(A). 

- GETPTRLOOP restaure DO D1 B(A) D(A) et retourne 
au RPL. 

- TOTEMPOB recrée l’objet sur la pile. 

- SEMI ou ; : fin de structure programme (enlève un 
niveau de pile de retours qui est l'adresse de l’objet 
suivant à exécuter. 


Lorsque des commandes User Rpl sont utilisées, un x 
les précède. 

Pour abréger les commentaires, dans ceux-ci "a" veut 
dire pointe sur. 


ASC- 
ASSEMBLE 
con(5) #02c67 * DOCOL 
con(5) #0c3e1 * cKk1 
con(5) #02c96 * DOCODE 
rel(5) fin * offset fin code 
gosbvl  #05081 * SAVPTR 
a=dati à * adr. objet ler niv. 
d0=a * à L'objet 
di=a * idem 
Lchex O2aée * prologue chaîne 
a=dati à * prologue de L'objet 
?ac a * une chaîne ? 
goyes string * oui on continue 
Lahex 0202 * non : bad arg. type 
err gosbvl  #050b8 * GETPTR 
goving  #0396a * Errjmp 
string di=di+ 5 * à Longueur 
a=dati a * Longeur + 5 
a=a-con a,6 * Longueur - 1 
gonc  nonull * si no carry : saut 
Lahex 00203 * sinon bad arg. val. 
goc err * saut pour erreur 
nonull asrb.f a * nombre caract. - 1 
b=a a * compteur caractères 
d0=d0+ 10 * à début codes 
di=di+ 5 * idem 
Lchex 39 
loop  a=dati 2 * conversion 
?a<=c b # ASCII -> HEXA 
goyes  inf10 ” 
a=a-con b,7 = 
inf10 datO=a 1 # 
di=di+ 2 % 
do=d0+ 1 # 
b=b-1 a > 
gonc Loop * 
goving #125e5 * GETPTRLOOP 
fin con(5) #3ceaa *2 get 


con(5) #04f3d 
con(5) #02f90 


* TOTEMPOB 
* SEMI 


La fonction 8YtEs de la HP48 serait bien utile dans 
une HP28. Elle permet de déterminer à la fois 
Fencombrement mémoire d’un objet et la somme de 
contrôle qui caractérise un objet. Aussi je vous livre 
cette fonction. La rapidité du programme ne peut être 
comparée honnêtement avec celle de la HP48. En 
effet celle-ci a un circuit intégré lui permettant de 
faire ce calcul plus rapidement que par soft 
uniquement. 


Quelques adresses à commenter : 

-?TYPEIDNT renvoie le booléen TRUE si l’objet est un 
nom global sinon FALSE. 

- DUP c’est le DUP interne. 

-ITE si le booléen est TRUE alors on exécute l’objet 
suivant sinon on saute au Z2ième objet. C’est 
léquivalent de 1F THEN ELSE. 

- rel_IDNT rappelle l'objet dont le nom est sur la pile 
après avoir fait un op. Si l’objet n’existe pas alors 
arrêt et affichage de Undefined Name sinon l’objet est 
rappelé sur la pile. 

- Swap c’est le SuaP interne. 

- BINT_0 est l’entier binaire 0. 

- SKIPOB routine interne qui fait pointer DO sur l'objet 
suivant. 

-#% conversion d’un binaire en réel. 

- %2 réel 2. 

- */ divisision de 2 réels. 

- PUSH#LOOP pousse sur la pile lentier binaire dont la 
valeur est en RO(A) puis retour au RPL. 


Le principe du programme est le suivant : 


On vérifie s’il y a un objet sur la pile avec ck1 on teste 
s’il y a sur la pile un nom global. 

Si oui, on rappelle objet et on recrée l’entier binaire 
#0 en mémoire. On stocke dans celui-ci la place 
mémoire occupée par le nom : prologue (5 nibs) + 2 
fois 2 nibs pour le nombre de caractères + le nombre 
de caractères * 2. 

Sinon on ne crée que l’entier binaire #0. 

Puis dans les deux cas on détermine la place en 
mémoire occupée par l’objet. Ce nombre de quartets 
sera ajouté à celui, éventuel du nom. Enfin ce sera le 
calcul de la somme de contrôle. 


Syntaxe: 

L'objet ou son nom sur la pile, 
BYTES ASC 

donnera : 


niveau 2 : cheksum 
niveau 1 : nombre d’octets 











exemples: 
sur la pile «1+2» 


BYTES ASC+ 


donnera : 
# A75Ah 
17.5 


Le super programme ci-dessus est stocké dans Trois 


sur la pile ’TRoIs’ 
BYTES  ASC+ 


donnera : 
# A75Ah 
27 


Avec une HP48, si on obtient les mêmes nombres 
d’octets. En revanche le cheksum est différent, ce qui 
est normal car le codage en mémoire n’est pas le 
même pour les deux machines. 





BYTES.28S 
ASSEMBLE 
con(5) #02c67 #* DOCOL 
con(5) #0c3e1 * cK1 
con(5)  #0204a * DUP 
con(5) #3e7f1 #* ?TYPEIDNT 
con(5) #3dca3 * ITE 
con(5) #02c67 * DOCOL 
con(5) #0bffd * rol_IDNT 
con(5) #020e5 * SUAP 
con(5) #10c2f * BINT_O 
con(5) #04f3d * TOTEMPOB 
con(5) #020e5 * SWAP 
con(5) #02c96 * DOCODE 
rel(5) finl 
c=dati a * adresse du nom 
di=dit 5 * drope Le nom 
d=d#i à ES 
cdiex * 8 Le nom 
di=di+ 5 * @ nombre de caract. 
a=0 a 
t1 b * nombre de caract. 
a=ata a * nombre de quartets 
a=a+con a,9 * total pour Le nom 
di=c * à adr. entier bin. 
c=dati à * adr. entier binaire 
cdiex * à prologue 
disdi+ 10 * à valeur entier bin 
dati=a a * sauve Long. du nom 
di=c * restaure D1 
goving #125ec * retour RPL 
fint 
con(5) #02f90 * SEMI 
con(5) #02c67 * DOCOL 





#10c2f 
#04f3d 
#02f90 
con(5) #020e5 
con(5) #02c96 
rel(5) fin 
a=dati à 
di=dis 5 
d=d#1 à 
cdiex 

rstk=c 

dizc 

gosbvl  #5081 
d0=(5) #fff00 
lchex f 
datO=c 1 
cza a 

d0=c 
rstk=c 
gosbvl 
c=rstk 
di=c 
ad0ex 
cza-c a 


con(5) 
con(5) 
con(5) 


#02e94 


Loop 


doubl 


Doubl 








MOMOMOMOON ON0 00  0000ù0600ù0ù ù ù  0 


ROM ON 6 6 6 0 


* boucle pour obtenir 
* cheksum * € 212 ) 


MO ee 0 


BINT_0 
TOTEMPOB 
SEMI 
SWAP 
DOCODE 


adr. objet 
a adr. ent. binaire 
et drope adr. objet 


sauve cette adresse 
restaure D1 

GETPTR 

adresse pour SPEED 
pour vitesse maxi 
stockage 

adresse objet 

à L'objet 

sauve cette adresse 
SKIPOB 

récupère adr. objet 
à L'objet 

adr. objet suivant 
Longueur objet 
sauve La Longueur 





compteur quartets 
adr. entier binaire 
à adr. entier bin. 
adresse entier bin. 
à l’entier binaire 
à La valeur 


R2CA) := 0000F 
initialise cheksum 
sauve cheksum 
quartet de l’objet 
XOR avec Le cheksum 
ACA) := 0000F 
0000F AND cheksum 


boucle pour obtenir 
cheksum * 2°7 


chksum * ( 2*7 + 1) 


chks*(2712 +277 +1) 
récupère L'ancien 
et divise par 16 
puis XOR avec nouv. 
à quartet suivant 
actualise compteur 
no carry alors saut 
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cr0ex * sinon sauve cheksum 
a=datO a * Longueur du nom si 
eate à * Long. objet + nom 
ar0ex * sauve en RO 
datO=a a * chks -> entier bin. 
gosbvl  #050b8 * GETPTR 
c=0 a * enfin on pousse sur 
P= 0 * La pile 1 entier 
goving #17523 * binaire := ROCA) 

xor  b=c a * duplique C(A) 
b=bla a # fait ACA) OR BCA) 
c=ec à * fait CCA) AND ACA) 
c=-c-1 à * complément - 1 
e=c&b a # fait C(A) AND BCA) 
rtn 

fin con(5) #31e22 + #4 
con(5) #112de * 22 
con(5)  #11d82 LE 
con(5)  #02f90 * SEMI 


Pour identifier et comparer les différents types 
d'objets utilisateur nous possédons maintenant un 
moyen fiable. Le Coin des codes pour HP-28S sera 
légal de celui de la HP-48 avec cette nouvelle 
fonction. 


Le compère obligé de Asc+ c’est évidemment -AsC qui 
fait l'inverse en transformant un objet en son code 
hexadécimal. Le principe de ce programme est 
simple : 


Calcul du nombre de quartets occupés par l’objet en 
soustrayant l’adresse de l’objet de celle de Pobjet 
suivant via SkIPOB. On réserve un espace chaîne, à 
laide de res_str, et de longueur égale au double du 
nombre de quartets du code de l’objet plus 10 pour le 
prologue et la longueur. Enfin le code hexadécimal de 
chaque quartet est converti en ASCII. 


Une adresse non listée ci-dessus : 


-res_str (dénomination non officielle) réserve un 
espace chaîne. La longueur totale en quartets avec le 
prologue compris doit être en C(A). DO D1 B(A) 
D(A) seront sauvegardés par res_str en début de 
routine donc bien les restituer avant d’appeler 
res_str. Au retour DO pointe sur le futur premier 
caractère, RO(A) contient l'adresse du prologue et 
R1(A) Padresse de la longueur de la chaîne qui est à 
déterminer par le programmeur donc ne pas se faire 
piéger comme moi (voir JPC 84 p 11). 


L’explication de ceci est que cette routine est utilisée 
pour convertir un réel en chaîne et que l’espace 
chaîne réservé est d'office: # 30h. Puis la routine 
déterminera la longueur exacte suivant le format 
(STD, FIX, SCI). 


Syntaxe: 


L'objet sur La pile +ASC + La chaîne 


exemple: 


«+»  +ASC + 


inversement 


n76C200D9E0EEE806E9E009F20" 


+ASC 


ASSEMBLE 
con(5) 
con(5) 
con(5) 
rel(5) 
gosbvl 

=dat1 
do=c 
rstk=c 
gosbvl 
czrstk 
ad0ex 
asa-c 
r3=a 
asata 
asatcon 
r2=a 
gosub 
c=a 
gosbvl 
d0=d0- 
a=r2 
a=a-con 
datO=a 
do=d0+ 
ad0ex 
gosub 
do=a 
a=dat1 
di=a 
e=r3 





1 
Lchex 

Loop asc 
a=dati 
?a<=c 
goyes 
a=a+con 

inf10 datO=a 
di=di+ 
d0=d0+ 
d=d-1 


M76C200D9E0EEE806E9E009F20" 


#02c67 
#0c3e1 
#02c96 
fin 
#05081 
a 


#02e94 


a 
a,10 


Load 

a 

#1e9ba 
5 


a,5 
a 
5 


Load 


b 
inf10 
b,7 
2 


1 
2 
a 


ASC+ + «+» 


* 


DocoL 


* cK1 


HOMO * 


HOMO OO 6 0 


* 


* 


HOMO 6 6 6 4 


DOCODE 


SAVPTR 

adresse objet 

à L'objet 

sauve adr. sur RSTK 
SK1POB 

récupère adr. objet 
adresse next objet 
Longueur objet 
sauve cette Long. 
double Longueur 
+10 : prol. + Long. 
sauve ce résultat 
appelle GETPTR 
espace à réserver 
res_str 

à Longueur chaîne 
Longueur totale 

- 5 : du prologue 
charge La Longueur 
a Îer caractère 
adresse er caract. 
appelle GETPTR 

a ler caractère 
adresse objet 

a objet 

Longueur objet 

en quartets 
compteur quartets 
pour conversion 
conversion 

HEXA -> ASCII 


charge Le caractère 
à quartet suivant 
a caract. suivant 
actualise compteur 














gonc Loop # si no carry : saut 
gosub Load * sinon restaure ptr 
e=r0 * adresse chaîne dans 
dati=e a * adresse er niveau 
goving_ #125ec * retour RPL 

load  goving #050b8 * GETPTR 

fin 
con(5)  #02f90 * SEMI 


La commande RcL de la HP28 ne permet pas de 
rappeler sur la pile un répertoire contrairement à ce 
qui est possible avec une HP48. Aussi, si vous devez 
transférer un répertoire il faut transférer une à une 
les variables du répertoire. Pour éviter cela voici la 
commande RCLDIR. 


Donc pour rappeler un répertoire sur la pile il suffit 
de mettre son nom puis RCLDIR 


Juste une nouvelle adresse: 
- rel_gn/ln qui rapelle une variable globale ou locale 
si elle existe et renvoie un booléen : TRUE si cette 


variable existe sinon FALSE. 


Donc un petit programme de 15 octets seulement. 


RCLDIR 

ASSEMBLE 
con(5) #02c67 * DOCOL 
con(5) #0c3e1 * ck1 
con(5) #1e737  * rel gn/ln 
con(5) #02106 * DROP 
con(5) #02f90 * SEMI 


La commande PURGEDIR fait défaut sur la HP-28. Si 
Fon veut purger un répertoire il faut aller dans le 
sous-répertoire le plus profond, purger une à une ses 
variables et refaire le même travail avec le répertoire 
parent et ainsi de suite. Cela est fastidieux. Pour 
remédier à cela voici encore une nouvelle commande: 
PURGEDIR. 


Son emploi est le même que PURGE. 
Quatre adresses à commenter : 


-Dispatch1 vérifie que l’argument est bien du type 
précisé par le system binary (entier court) qui suit 
cette adresse. Sinon recherche une autre une autre 
option. Si l’argument ne convient pas alors arrêt avec 
message Bad Argument Type. 

- Six system binary correspondant au type nom global 
- rel_gn&err (dénomination non officielle) rappelle la 
variable précisée par le nom. S’il y a erreur arrêt avec 
message: Undefined Name. 


- purge_gn purge l'objet correspondant au nom. 


Le principe du programme est le suivant : 


Après verification qu’il y bien un objet sur la pile et 
que cet objet est un nom global, on tente de rappeler 
cet objet. S’il existe, alors on le purge. 


PURGEDIR 

ASSEMBLE 
con(5) #02c67 * DOCOL 
con(5) #0c3e1 * ck1 
con(5) #0c7a5 * Dispatch1 
con(5) #071e5 * SIX type GN 
con(5) #02c67 * DOCOL 
con(5) #0bffd * rcl_gnê&err 
con(5) #02106 * DROP 
con(5) #06a25 * purge_gn 
con(5) #02f90 * SEMI 
con(5) #02f90 * SEMI 


Enfin une troisième commande de la HP48 absente 
de la HP28 : DEBUG. 


Si lon veut suivre l’exécution d’un programme pas à 
pas il faut éditer le programme pour y inclure HALT. 
Pour revenir à un exécution normale il faut rééditer 
ce programme pour enlever cette commande. Tout 
cela est perte de temps surtout en éditant un 
programme encombrant. Donc encore une fois il faut 
créer cette commande DEBUG. 


Le principe du programme est le suivant : 


On vérifie qu’il y a bien un objet sur la pile et que 
c’est un programme. Une liste est constituée avec la 
commande User Rpl HALT et le programme. Puis on 
évalue la liste avec la commande User Rpl EVAL. 


Quelques adresses supplémentaires: 


- EIGXT syst. binary correspondant au type programme. 
-No_eval_nxt (rien d’officiel) n’évalue pas l’objet 
suivant ce qui permet, dans notre programme, de 
réaliser un liste avec xHALT et le programme à 
exécuter. 

-+ List\prog any ajoute dans une liste un programme 
et quelque chose ou une liste et quelque chose. 

- xHALT et XEVAL sont les commandes User Rpl. 


On remarquera que certaines mnémoniques n’en sont 
pas véritablement mais il fallait bien un moyen de les 
identifier. 
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DEBUG 


ASSEMBLE 
con(5) #02c67 * DOCOL 
con(5) #0c3e1 * cK1 
con(5) #0c7a5 * Dispatchi 
con(5) #071f9 * EIGHT type prog 
con(5) #02c67 * DOCOL 
con(5) #0561f  * no_eval_nxt 
con(5) #0e842 * XHALT 
con(5) #020e5 * SWAP 
con(5) #08fac * + List/prog any 
con(5) #0a418 * xEVAL 
con(5) #02f90 * SEMI 
con(5) #02f90 * SEMI 


Dans l'article HP-28$ RETRO je faisais allusion au 
programme SPEED qui double la vitesse d’une HP-28S. 
Ce programme est si connu et utile qu’il se trouve 
dans la plupart des machines. Toutefois pour ceux qui 
ne l’aurait pas voici une version plus courte que celles 
habituelles. 


SPEED 
version habituel Le 
(Paul Courbis) 


con(5) #02c96 con(5) #02c96 


rel(5) fin rel(5) fin 
ad0ex adiex 
Lchex _fff00 di=(5) #fff00 
do=c lchex f 
datO=c xs dati=c 1 
govlng #03801 * dO=a di=a 
fin * a=datO à a=dat0 à 
* do=do+ 5 do=d0+ 5 
* pe=(a) pc=(a) 


Si les lignes 6 à 8 paraissent différentes d’une version 
à l’autre, elle représentent au total la même longueur 
de code donc c’est juste pour ne pas faire pareil. Ma 
version est plus courte ensuite de 3 octets grâce à la 
routine #03801. 


Vous trouverez les chaînes de codes à assembler dans 
le coin des codes pour tous les programmes ci-dessus. 


Je dois ici remercier un ami : Mathieu Clabaut, un 
taupin qui se passionne pour sa HP28S (il rêve de 
trouver le moyen de réaliser des librairies comme 
pour la HP-48!), et qui a mis à ma disposition un 
ensemble d'informations sans lesquelles cette 
chronique HP-28S aurait été beaucoup plus longue et 
difficile à réaliser. 


Ma reconnaissace va aussi à Jean-François Garnier 
(PPC 242) dont les deux décompilateurs MON68 et 
MON28 m'ont été d’un grand secours. 
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Enfin nous avons toujours une dette envers tous ceux 
qui ont contribué à découvir les secrets de la HP-28S 
mais dont les noms me sont inconnus. 


Il reste un problème à élucider : combien, parmi les 
lecteurs de JPC, sont intéressés par cette rubrique. 
Faut-il continuer, aller plus loin ? Qui a une HP-28S 
munie de connecteurs ? Qui envisage de transformer 
(c’est à la portée de beaucoup) sa machine ou de la 
faire transformer ? Combien sont prêt à apporter leur 
contribution ? 


Manifestez-vous en m'’écrivant. Je rappelle mon 
adresse: 


Guy Toublanc 
21, rue Henri Becquerel 
59120 LOOS-les-Lille 


Si vous désirez des informations précisez vos 
coordonnées avec éventuellement votre numéro PPC 
et dans tous les cas ce qu’il faut matériellement pour 
la réponse. 


Guy Toublanc (276) 











HP48 


J.F. Garnier 

P. Silvestre de Sacy 
A. Buchmann 

G. Toublanc 

L. Grand 

P. Silvestre de Sacy 
L. Grand 


Présentations des Goodies disks 8 
Extension des menus 

Tracé de polyèdres 

Connections entre HP48 

Recherche de chaînes dans la mémoire 
Récuperation de port, correctif 
Résolution de polynômes, correctif 
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LES GOODIES DISKS 
ACTEII 


Le volume 8 des Goodies Disks est maintenant 
disponible ! Encore une fois, on y trouve quantité de 
choses passionnantes, que je vais sans plus attendre 
vous présenter. 


Directory DETLEF : 


Cette section contient un système de développement 
très complet dû à Detlef Mueller. Il s’agit de la 
version 1.12 beta. Ceux d’entre vous qui étaient 
présents à la réunion des 30-31 janvier avaient pu 
goutter à la version 1.11 présente sur la disquette 
anniversaire du club anglais. 


Ces outils tournent entièrement sur 48, et permet de 
développer sans laide d'un PC. On y trouve 
principalement : 


- Librairie RPL- : un compilateur et un décompilateur 
system RPL, un assembleur et un désassembleur 
Saturn. 

- Librairie L18+ : un créateur et un désassembleur de 
librairies, ainsi que divers utilitaires de création 
d'objets. 

- Librairie DE8UG : un débogueur system RPL. 


La particularité de +RPL-+, par rapport à d’autres déjà 
connus, est l’utilisation des mnémoniques HP des 
points d’entrées, aussi bien pour le compilateur et 
lassembleur que pour leurs inverses (décompilateur 
et désassembleur). On écrit le source dans une chaine 
de caractère, avec possibilité de définir des symboles, 
d'utiliser des INCLUDE, bref de travailler de façon 
analogue au processus sur PC. Le rapidité de 
compilation est satisfaisante. Bien sûr le Saturn n’est 
pas un 386. 


L’ensemble, d’une qualité exceptionnelle, fait environ 
65 ko et nécessite une carte 128ko en port 
indépendant. La documentation très complète en fait 
un produit quasi-professionnel. Cette version beta 
(pouvant donc contenir encore quelques 
imperfections, en clair des bugs …) est diffusée en 
tant que Giftware (cadeau). La version définitive sera 
distribuée sous forme de Shareware (diffusion libre, 
mais utilisation soumis au paiement d’un license). 


Directory HACKER : 


Vous trouverez dans cette rubrique (entre autres) : 


- Une nouvelle version de la célèbre librairie 
HACKIT.LIB, avec une commande -DIR améliorée. 


- Des informations sur un virus attaquant les 48 (eh 
oui ….), et sur les moyens de s’en prémunir. 


- Une liste des ID des librairies actuellement en 
circulation (NDLR : Faisant déjà référence à des programmes 
devant se trouver dans la Goodies 9 !), où l’on se rend 
compte que malgré le nombre élevé d’ID disponibles, 
il n’est pas rare de trouver 2 ou 3 librairies de même 
numéro (environ 200 librairies commerciales ou du 
domaine public). 


Directory POSTINGS : 


Divers articles intéressants, en particulier sur la 
dernière version J de la rom de la 48. Contrairement 
à des rumeurs, tous les points d’entrées supportés 
sont présents. Mais attention aux nombreuses 
applications utilisant des points  d’entrées 
non-supportés ! Par exemple la librairie GATEWAY 
(protection de la 48 par mot de passe) présentée dans 
les disquettes Goodies 3 et 7 semble crasher 
monumentalement les versions J. Les plus hardis 
d’entre vous pourront suivre le mode d'emploi du 
démontage de leur 48 préférée (avec perte de la 
garantie !). 


Directory HP : 


Cette rubrique contient divers programmes d’origine 
HP et de diffusion libre, bien que restant copyright 
HP. On y trouve les dernières versions de APDIR, CLK, 
EPSPRINT, INPRT, PCLPRINT, STPWATCH, USAG déjà connus 
(kit d'interface série HP48-PC), mais aussi CALCULUS, 
EZPLOT, HAMILTON, SUITE3D4 (tracé de courbes en 3 
dimensions, avec les sources). 


Directory TUNES : 

Après les graphismes et les animations, voici les effets 
sonores, sinon musicaux. S’il y a des amateurs... 
Directory GAMES : 

Quelques jeux supplémentaires pour occuper vos 
(courts) temps de loisirs. Notez en particulier 


quelques superbes réalisations françaises (ARKANOID, 
BOULDER DASHP et TRONII). 


Et bien sûr les habituelles rubriques MATH, UTILS, 
PROGRAMR, WORK. 















D'une manière générale, si le niveau des programmes 
est devenu très élevé, on constate que l’utilisation de 
la programmation en system RPL ou assembleur, et 
la diffusion sous forme de librairies font que les 
sources sont de moins en moins fournis. 







Le prochaine disquette ne devrait pas apparaitre 
avant l’automne. En attendant, tenez nous au courant 
de vos découvertes et de vos réalisations. 




































Happy Hunting. 


Jean-François GARNIER (242) 





LE MENU CST 


Tous ce qui sera dit ci-dessous est valable pour le 
menu CST et les menus temporaires (TMENU). 


Le menu CST est destiné par définition à l'utilisateur, 
cependant ses capacités sont limitées. Nous allons 
donc voir comment accéder pleinement aux 
possibilites de la HP48. 


Le menu CST prend dans la variable CST une liste. 
Cette liste contient la plupart du temps des 
sous-listes. Ces sous-listes contiennent une chaine qui 
sera le label puis eventuellement un programme a 
exécuter en cas d’appui sur la touche correspondante. 


Il est possible de remplacer la chaine par un GRo8 21x8 
qui sera affiché a la place du label. 


Mais nous allons faire plus... 

Nous allons remplacer la chaine ou le Grob par un 
programme. Ce programme sera executé et il laissera 
sur la pile une chaine ou un Grob. 

On peut imaginer le CST suivant: 


€ € « DEPTH +STR » « DEPTH 1 DISP » } } 


qui afficherait dans le menu le nombre d’objets sur la 
pile. 


Le resultat obtenu n’est pas celui attendu, car on voit 
dans le menu : 


Est-il donc impossible d'exécuter un programme qui 
creerait un label 2? 


Patience on va y arriver... 


La HP48 exécute le programme d’un label seulement 
‘si il commence par le programme en ROM Takeover 
(#40788h). 


Voici donc un programme qui transforme un 
programme normal en programme executable dans 
un menu : 


SMENU 
#ED66h (125) 


[8] CTRL #40788h SYSRCL SWAP #54AFh SYSEVAL 
#3DEFh SYSEVAL #3FB3h SYSEVAL #5331h SYSEVAL 


» 
CTRL et SYSRCL sont deux programmes listés ci-dessous. 
Si vous tapez donc : 


« DEPTH +STR » 
SMENU 1 -LIST LIST TMENU 


Ca marche mais le chiffre obtenu est superieur de 6 a 
la bonne taille. Voyons ce que contient la pile quand 
on exécute DEPTH : 


« 1 6 FOR I 1 PICK I DISP 7 FREEZE » 
SMENU 1 +LIST LIST TMENU 


Nous voyons safficher 6 System binay qui 
correspondent a labscisse de l’angle gauche des 
Grobs menu. 


Si le programme se trouve en deuxieme position dans 
le menu, il n’y a plus que 5 objets sur la pile. 


Voici deux autres programmes pour créent des menus 
repertoires ou des menus inversés comme dans 
SOLVE : 


ME.INV 
#EDCSh (95.5) 


« [21 CTRL #40788h SYSRCL SWAP #3A44Eh SYSRCL 3 -PRG » 


ME-DIR 
#0F73h (95.5) 


« [21 CTRL #40788h SYSRCL SUAP #3A3ECh SYSRCL 3 -PRG » 
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Ils prennent une chaine dans la pile le programme 
créé par ME.DIR, qui devrait normalement être suivi 
d’un programme du type : 


«CC... } C.. } } TMENU » 


avec éventuellement des messages affichés par des 
D1SP comme dans les menus TIME et PLOT. 
La derniere entree de ce menu temporaire pourra etre: 


C MEXIT® « ., » } 


ou ".." correspond a un programme appelant le menu 
"père". 


Le dernier programme que nous allons voir créera un 
menu "option" comme dans le menu MODE un carré 
blanc signalera qu’une condition est remplie. Le 
programme pris en argument devra retourner un réel 
(0 ou 1) puis se terminer par #2A768h SYSEVAL pour le 
transformer en flag systeme. 


ME.OPT 
#1643h (106) 


« 

Fr 
[8 2] CTRL #40788h SYSRCL ROT ROT 
#3EDOCh SYSRCL 4 -PRG 

» 


Exemple d’utilisation: 


MALPHAM 
« -60 FS? #2A76Bh SYSEVAL » ME.OPT 
LIST 1 LIST TMENU 


Le menu ainsi obtenu contient un carré blanc si le 
alpha se bloque au premier appui sur la touche 
Calphal. 


J'espère que tous ces programmes vous seront utiles 
et qu’il vous permettront de realiser des programmes 
utilisants de manière intensive les menus temporaires. 


Bonne programmation. 


CTRL 
#ADDCH (142.5) 


« 
DUP SIZE EVAL + t ts 
« 
IF DEPTH ts < 
THEN 
#201h DOERR END 1 ts 
FOR ! 
IF I PICK TYPE t 1 GET 
THEN 
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#202h DOERR 
END 
NEXT 


On pourra remplacer == NOT par le signe différent. 


SYSRCL 
#DD21h (41) 


« #5A03h SYSEVAL #C612h SYSEVAL » 
PRG 
#325Dh (43.5) 


« LIST #3FB3h SYSEVAL #SACCh SYSEVAL » 


Pierre Silvestre de Sacy (572) 


POLYEDRES 


Voici deux programmes permettant de construire un 
polyèdre obtenu à partir d’un cube auquel on a fait 
subir une rotation de 180° suivant ses quatres 
diagonales (un cube a 8 sommets, donc 4 diagonales), 
le cube de base étant exclu des figures. 


Les programmes MAT1 et MAT2 calculent les matrices de 
rotation. Le premier est une adaptation pour HP28 
ou HP48 d’une partie d’un programme de de 
transformation de coordonnées contenu dans le 
module MATH de la HP-41. 


MATI1 


Il prend en entrée dans la pile 4 nombres: 4, 8, CetT. 
A, B, C sont les composantes d’un vecteur et T l'angle 
de la rotation ayant pour axe ce vecteur. La matrice 
de rotation a pour nom MR1. 


« 
+ABCT 
« 
DEG À B C € 3 } -ARRY DUP ABS / 
ARRY-+ DROP 1 T COS - T SIN T COS + A1 
B1 C1 D1 TS TC 
« 
A1 SQ A1 B1 * DUP A1 C1 * SWAP B1 SQ B1 C1 * 
DUP A1 C1 * SWAP C1 SQ € 3 3 } -ARRY D1 * 
TC TS C1 * NEG DUP B1 TS * SWAP NEG TC A1 
TS * NEG DUP 81 TS * NEG DUP B1 TS * 
NEG SHAP NEG TC € 3 3 } -ARRY + ’MR1' STO 











MAT2 


Il a comme arguments 2 nombres A et B qui sont les 
angles que font les axes des X et des Z avec l’axe des 
Y, qui est toujours parallèle au bord vertical de la 
feuille. En sortie on a la matrice de rotation MR2 ainsi 
que les réels KX, KY et KZ qui sont les coefficients 
de réduction suivant les axes des X, Y et Z. 


« 
DEG DUP2 + NEG 360 + + A1 A2 A3 
« 
« COS SWAP SIN / NEG DUP ROT SIN * / / » 
COEF! STO A2 A3 A1 COEF KZ’ STO A1 A2 A3 COEF 
‘KY! STO A3 A1 A2 COEF !KX' STO ’COEF’ PURGE 
KZ SQ KX SQ KY SQ + B1 B2 B3 
« 
B2 83 + 1 - 83 / / 83 1 - 82 1 - * 83 / 
J NEG KX ASIN COS O KY KY ASIN COS B3 81 + 1 
- 83 / J NEG 83 1 - B1 1 - * 83 / / NEG 
KZ ASIN COS € 3 3 } -ARRY 'MR2’ STO 
» 
» 


» 


Exemple 


Une projection isométrique suivant la norme NF E 
04-108 a une matrice de rotation obtenue par: 
120 120 MAT2Z. Pour une projection dimétrique 
redressée on fait 105 105 MAT2. 


Les coordonnées du cube de base sont introduites : 


[01 1 1 
£-1 1 1 
IT 1 JU 
ETEt A1 
ET 1-14 
ET 1° 
ET°1 EU 
EXP 51 1 
#CUBE’ STO 


Les sommets du polyèdre sont calculés par CUBE MR1 * 


m2 *. Le report des points se fait à la main ou avec 
une table traçante. 


Alexandre Buchmann (386) 





= 


EC 


BRICOLAGE SIMPLE POUR 
TRANSFERT 48 <-> 48 


Le transfert d’objets entre deux HP-48 se fait en 
général par voie infrarouge à la vitesse de 2400 bauds. 
Cette vitesse nous semble souvent un peu lente 
lorsque les objets ne sont pas de petite taille. Il existe 
des programmes qui effectuent ce transfert à des 
vitesses plus acceptables, mais il faut que les deux 
machines soient déjà pourvues de ces programmes et 
ceux-ci prennent de la place en mémoire, constituant 
encore un répertoire où une librairie de plus. Or il 
existe une autre solution que certains utilisent déjà 
depuis longtemps: la transmission par interface série 
à la vitesse de 9600 bauds. Pour cela il faut bricoler 
un cable et les connexions ne sont pas des plus faciles 
à réaliser. Ma solution implique que les deux HP-48 
soient équipées d’un cable série HP. Il suffit de 
réaliser un connecteur amovible pour relier ces cables 
ce qui est à la portée de chacun (pour la circonstance 
vous pouvez emprunter un fer à souder à un ami). 


Matériel : 


-2 connecteurs SUB-D RS232 mâles connexion par 
broches à souder à 9 contacts 

- 1 capot plastisque de montage pour 2 connecteurs 
SUB-D à 9 contacts 

- 20 cm de fil électrique fin 

- un peu de fil d’étain à souder 

- et évidemment 1 petit fer à souder électrique 


\ {connecteur SUB 
\® 9 9 9° °/ coté broches à 
A LE SES SE  éouder 
\ 4 
F sa Tr 6 
6 7 8 9 
/ \ 
8 1 9% ®$ ® X\ connecteur SUB 
19° °° S\ côté broches à 
1. \ souder 


Après acquisition de ce matériel dans un magasin de 
matériel électronique, relier les connecteurs SUB-D 
avec 3 longueurs de 4 cm environ de fil fin électrique 
soudé sur les broches et suivant les liaisons: 
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le 2 de A au 3 de B 
le 3 de A au 2 de B 
le 5 de A au 5 de B 


Placer l’ensemble dans une moitié du capot et fermer 
avec la partie restante du capot. Les deux cables série 
HP pourront être assemblés le moment venu, votre 
IOPAR sera le même que pour une autre liaison avec 
un PC. 


Bon bricolage et bons transferts. 


Guy Toublanc (276) 





RECHERCHE DE CHAINES DANS 
LA MEMOIRE 


Bien que la ROM de nos chères machines soit assez 
bien connue de nos jours, il arrive parfois que l’on 
cherche des objets ou des parties d’objets dans la 
mémoire. 


Le programme FINDMEM recherche une suite de 
caractères hexadécimaux (donnée sous forme d’une 
chaîne de caractères) dans la mémoire à partir d’une 
adresse spécifiée par un nombre binaire. Il retourne 
ladresse de la première occurence de la suite s’il en 
trouve une, #0 sinon. 


Voici le listing : 


3 FINDMEM ( 2:chaîne 1:adresse -> idem ) 


CK28Dispatch FIFTYNINE 


de TOTEMPOB 
ASSEMBLE 
include addr-48.as 
nibhex  begin_code 


rel(5)  fincode 
gosbvl save_reg 


a=dati a 
d0=a 
d0=d0+5 
c=0 w 
c=dat0 a 
csrb 

=c-1 a 
c=c-1 a 
b=c 


ok1 


Loopi 


digit 


Loop2 


increm 


found 


fin 


test 








di=d1+10 
cdiex 
rise 





dati=a p 
di=di+1 
d0=d0+2 

d=d-1 a 
?di=0 à 
goyes  Loopl 
a=r0 


d0=a 

c=dat0 p 
d=ce P 
azr1 

di=a 

a=dati a 
di=a 

c=dati p 
?e=d pp 
goyes test 
di=d1+1 

gonc  Loop2 
cdiex 

azri 

di=a 

dati=c a 


gosbvl  Load_reg 
di=di+5 

d=d#i à 

a=dat0 a 
d0=d0+5 

pc=(a) 

adiex 

d 
r2sa 





c=b a 
d=c a 











Loop3 d=d-1 a 





?di=0 à 

goyes  cont 

azr2 

di=a 

goto found 
cont di=di+1 

goc found 

d0=d0+1 

c=dati p 

a=dat0 p 

?ac p 

goyes  Loop3 

a=r0 

d0=a 

c=datO p 

P 

azr2 

diza 

goto increm 


fincode ENDCODE 


Vous trouverez les codes à taper dans la rubrique Le 
coin des codes. 


Laurent Grand (516) 





RECOVER - ACTE II 


N'ayant pas poussé mes tests a fond avant d’envoyer 
le programme RECOVER, je me suis aperçu après coup 
que le port 0 posait problème. 


Ceci est du au fait que le port 0 n’est pas sur une 
carte. 


Les ports 1 et 2, lorsque les cartes ne sont pas 
mergées, commencent a des adresses fixent qui sont 
soit #80000h soit #C0000k suivant le port et suivant 
le nombre de cartes mergées. 


Ces ports finissent lorsque on trouve cinq quartets a 
0. Mais dans le programme RECOVER la recherche 
continuait jusqu’a la fin de la carte car si on a perdu 
des librairies celles-ci seront au delà de la fin du port. 
Du fait de cette recherche sur toute la carte, il arrive 
que l’on retrouve des librairies que l’on a purgées il y 
a un certain temps. 





Le portO quant a lui commence normalement juste 
apres le répertoire HOME et finit normalement aux 
adresses suivantes: 


- #7FFFBh si il n’y a pas de carte mergée. 

- #8FFFBh si une carte de 32 ko est mergée (peut 
importe dans quel port). 

- #BFFFBh si une carte de 128 ko est mergée (peut 
importe dans quel port). 

- #9FFFBh si deux cartes de 32 ko sont mergées. 

- #CFFFBh si une carte de 32 ko et une carte de 128 
ko sont mergées. 

- #FFFFBb si deux cartes de 128 ko sont mergées. 


Lorsque lun des objets du port 0 est "abimé" la 48 
reconnait le port O depuis la fin du repertoire HOME 
jusqu’a objet abimé. Tous les autres objets existent 
toujours, mais ils ne sont plus dans le port 0. Ils sont 
inaccessibles. 


Ces objets inaccessible ne seront jamais detruits par 
la 48 car elle ne les connait pas. Même un garbadge 
collector ne recupère pas la memoire qu’ils occupent. 


En remplacant dans le programme RECOVER : 


PORTO 

4) #0597 
D1=(2) #40 
GOTO  SUITE2 





par: 


PORTO 

LCHEX 80000 

D1=(2) #2C 

A=DATI 1 

?ABIT=0 1 

GOYES  NOMERGE1 
D1=D1+ 1 

A=DAT1 A * TAILLE CARTE 
A=-A-1 A 

C=C+A A 

D1=D1- 1 

NOMERGE 1 

D1=D1+ 11 

A=DATI 1 

?ABIT=0 1 

GOYES  NOMERGE2 

D1=D1+ 1 

A=DATI A * TAILLE CARTEZ 
=-A-1 A 

C=C+A À 

D1=D1- 1 

NOMERGE2 
B=C A * à FIN 
DO=(4) #0597 * à DEBUT 
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A=DATO A 
DO=A 
GOTO RECHERCHE 


ces objets peuvent étre récuperés. 


Cependant si on les restocke dans le port, le 
repertoire HOME est alors deplacé et ils sont stockés au 
debut du port 0. Mais ils existent toujours après la fin 
du port. 


Le seul moyen de reconstituer le port 0 de manière 
propre est ON-A-F puis YES. La 48 reconstitue alors le 


port 0 avec toutes les Librairies qu’elle trouve en 
RAM. 


Le programme RECOVER modifié permet toutefois de 
faire une sauvegarde de tout le port 0 au cas où le 
ON-A-F n’arriverait pas a le reconstituer. 


D'autre part, une instruction à été oubliée dans le 
listing paru le mois dernier. En effet, il faut 
remplacer : 


SUITE 
DO=D0+ 1 
C=DATO A 
par: 
SUITE 
DO=D0+ 1 
C=DATO A 
C=-C-1 A 


Sinon le programmme ne marche pas, car la taille est 
stocke en memoire en complementation a 2. 


Pierre Silvestre de Sacy (572) 


FAUSSE RESOLUTION 


Comme le dit l’un de mes amis, une fausse erreur 
s’est glissée dans mon article Résolution de Polynômes 
de JPC 79. Je prie les victimes de cette inattention de 
m’excuser. 
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L’erreur se trouve dans le programme BAIRSTOW, page 
7, colonne 2, ligne 18. Elle se produit pour la dernière 
racine des polynômes de degré impair. Cette racine 
doit être divisée par le coefficient de plus grand 
degré. Pour la supprimer, il suffit de remplacer la 
ligne. 


SWAP DROP 
par 


SUAP / 


Laurent Grand (516) 














HP95 


J. Belin 
J. Belin 


Programmation graphique, correctif 
Editeur de motifs de remplissages 
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UNE TACHE DANS LES PIXELS 


Comme d’habitude dans mes articles (si si, vérifiez !), 
quelques erreurs se sont glissées dans la présentation 
des fonctions graphique du HP95, parue le mois 
dernier. 


Cette fois ci, je me suis fait trahir d’une part par une 
petite faute d’inattention suivant une opération 
facilitée par la puissance des éditeurs de textes 
actuels, et d’autre part par une mauvaise relecture de 
mes notes après mes essais préliminaires d’une 
fonction. 


La première faute concerne la fonction 04h (sélection 
d’une fenêtre graphique, page 19). Un lecteur attentif 
s’aperçevra que je cite pour les registres SI et DI le 
coin inférieur gauche alors qu'il s’agit du coin 
inférieur droit. En effet, comment le programme 
pourrait connaitre la largeur de la fenêtre, si je ne 
donne que les coordonnées du côté gauche ? 


Si la première faute ne concernait que l’article, la 
seconde a le désavantege de se retrouver aussi dans le 
listing présenté après l’article. En effet, les éléments 
des coordonnées du coin inférieur droit de la fonction 
Odh (get image) sont inversées pour les registres SI et 


I faudra donc, dans la fonction 


remplacer les lignes : 


get_image(), 


asm mov si,yl par asm mov si,xl 
et 

asm mov bp,x1 par asm mov bp,y1 
Jacques Belin (123) 


Note finale : Après relecture de cet article, je me suis aperçu que 
je venais de reproduire la première erreur sur le correctif de la 
deuxième erreur ! Je suis vraiment incorrigible... 





EDITEUR DE MASQUES 


Le mois dernier, vous avez pu remarquer une page 
contenant des motifs de remplissage graphiques, à la 
suite de mon article sur le graphisme sur le HP95. La 
création de certains ne m’aurait pas été possible sans 
laide du programme que je vais vous présenter ce 
mois-ci. 


Il s’agit en fait d’un éditeur graphique permettant de 
créer et visualiser les motifs de remplissage et leur 
donner un nom le cas échéant. Bien sûr, ces motifs 
peuvent être sauvegardés dans un fichier. 


Mode d’emploi du programme 

Au lancement du programme, vous pouvez spécifier, 
si vous le désirez, le nom d’un fichier. Par défaut, ce 
sera C:\_DAT\MASKS.MSK, 


Vous obtiendrez l’écran suivant : 


3E 
46) 
FE) 
8E) 
ÊE) 
80 
Fe] 
68) 


de Ur 


Hip Sav Lod Nam Inv Ins Del 





Le nom du fichier courant est situé en haut et à droite 
de l'ecran. La première fenêtre montre le résultat de 
lexécution de la fonction set_fill_mask (voir 
précédent numéro) pour le motif défini dans la 
deuxième fenêtre, qui permet l'édition proprement 
dit. 


Les codes hexadécimaux présents dans cette fenêtre 
sont ceux que vous devrez spécifier pour la fonction 
précédement citée. 


Sous les deux fenêtres, une troisième permet de 
donner un nom au motif que vous avez créé. 


Touches définies : 


Espace ou DEL : Inversion d’un pixel. 















Flêches éplacement du curseur graphique. 
Page Up/Doun : Motif précédent/suivant. 
Début/Fin Premier/dernier motif. 

F1 : Affiche l'écran d'aide. 

F2 : Sauve Le fichier courant. 

Shift F2 : Sauve sous un nouveau nom. 

F3 : Charge un nouveau fichier. 

F4 : Edite Le nom du motif. 

F5 nverse tous Les bits du motif. 
F6 : Insère un motif. 

F7 fface Le motif courant. 

F10 uitte Le programme. 

ESC : Annulation des changements sur Le 


motif courant. 














Fonctionnement du programme 


J'ai l'habitude, lorsque j'expérimente un nouveau 
domaine ou de nouveaux outils, de créer un "vrai" 
programme utilisant les nouvelles fonctions, plutôt 
que de faire une simple démo sans utilité. Ceci me 
permet donc de me placer dans un cas réel 
d'utilisation, et de mieux connaitre les limites de ces 
fonctions. 


Ce programme ne faillit pas à la règle, puisqu'il utilise 
quasiment toutes les fonctions graphiques du HP95, à 
lexception notoire de celles permettant d’afficher un 
point ou une ligne ! 


Il ne devrait pas être trop difficile à analyser, je 
n’expliquerais ici que quelques points spécifiques. 


Architecture générale du programme 


Elle est très simple, puisqu'il s’agit avant tout d’une 
boucle comportant dans l’ordre: les affichages, la 
fonction d'attente de touche et les différents 
traitements associés à ces touches. La sortie de cette 
boucle, et donc du programme, se fait par l'activation 
de la variable fin (dans le traitement de la touche 
F10, pour ce programme). Les touches peuvent 
effectuer des actions simples (positionnement du 
curseur, par exemple) ou appeler des 
sous-programmes gérant des fenêtres, qui peuvent 
avoir exactement la même structure que le 
programme principal (voir le traitement de Shift F2 
avec le couple get_in_box/ginput). 


Si vous désirez créer des programmes de ce type, vous 
êtes bien entendu tout à fait autorisés de récupérer le 
squelette de ce programme et de n’apporter que les 
modifications propres à votre application ! 


Notez aussi que j'ai pour cela séparé les fonctions 
spécifiques à ce programme et les fonctions 
généralistes (affichage de fenêtre, entrée de chaine), 
qui peuvent être réutilisées dans n’importe quel autre 
programme sans modification. 


Affichage des fenêtres 


Le programme permet une gestion simple de 
l'affichage de fenêtres. En effet, certaines touches 
nécessitent un petit dialogue avec utilisateur. 


Pratiquement, le principe est de sauvegarder dans un 
buffer la zone devant être recouverte par le fenêtre 
ainsi que les paramètres graphiques courants, puis 
positionner l'origine graphique sur le coin 
supérieur/droit de la fenêtre (pour simplifier les 
calculs de coordonnées) puis d’afficher le contenu de 
la fenêtre et effectuer les différentes actions que nous 


désirons effectuer. En fin de traitement, l'effacement 
est effectué en affichant le contenu du buffer à la 
position initiale. Enfin, il est toujours souhaitable de 
replacer les modes vidéo à ce qu’il étaient avant 
lappel de la fonction. 


Par souci de simplicité les fonctions d'affichage de 
fenêtres de ce programme ne gèrent que des fenêtres 
de deux lignes de textes, placées automatiquement au 
centre de lécran. Cependant, la largeur est 
automatiquement pris en compte en fonction de la 
longueur du texte, qui est lui aussi centré. 


Vous remarquerez que la plupart des affichages sont 
précédés d’un appel d’une fonction visant à effacer ce 
qu’il y avait originellement à l’ecran. Il est dommage 
que le mode FORCE ne soit pas totalement appliqué 
(comme pour la fonction put_image()) car cela 
augmente souvent inutilement la taille du 
programme. 


Notez aussi que ces sous-programmes ayant une 
structure commune, il aurait été intéressant de les 
simplifier en remplacant les parties communes situées 
au début et à la fin par des fonctions plus génériques 
que nous aurions appelé open_windou() et 
close_windou() par exemple. Ceci aurait grandement 
diminué la taille du programme, mais je n’ai pas eu le 
temps de le faire. 


Optimisation de la vitesse d'affichage 


Je n’ai pas cherché à optimiser le programme, que ce 
soit en vitesse ou en taille. Cependant, la partie du 
programme chargée d’afficher le motif dans la fenêtre 
et les codes hexadécimaux étant relativement lente, 
j'ai un peu modifié le code afin de diminuer le temps 
d'affichage. 


Pour représenter un pixel dans la fenêtre d’edition, je 
lai agrandi dans un carré de 8x8 pixels. La méthode 
qui vient immédiatement à l'esprit est d’utiliser la 
fonction draw_rectangle() avec le paramètre soL1D. 
Cependant, avant d’utiliser cette fonction, nous 
devons appeler les fonctions move_pen() et set_color() 
pour déplacer le curseur et selectionner la couleur du 
tracé. Ce qui fait 3 appels pour un seul tracé. Pour 
leffectuer un seul appel, il vaut donc mieux utiliser la 
fonction put_image() qui est à priori plus lente que 
draw_rectangle() en mode SOLID, mais plus rapide si 
nous nous en servons bien. La sélection de la couleur 
du pixel est alors assurée par le paramètre 
NORMAL / INVERSE. 
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Notez aussi qu’on aurait eu de bien meilleurs 
résultats en effectuant des écritures directes en 
mémoire d'ecran, sans vraiment compliquer le 
programme. Cependant, cela aurait sûrement rendu 
le programme incompatible avec les successeurs du 
HP95. J'ai donc choisi la sécurité par rapport à la 
rapidité. 


Pour afficher le code Hexadécimal, nous devons 
toujours utiliser la fonction write_text(). Cependant, 
ce n’est pas la plus gourmande en temps de calcul. En 
effet, nous devons auparavant convertir le code en 
hexadécimal et le transférer dans une chaine de 
caractères, qui sera utilisé par la fonction graphique. 
La méthode "normale" est d'utiliser la fonction 
sprintf() du C. Cependant, cette fonction appelle une 
routine très complexe d’analyse des opérandes, donc 
très lente. Il faut donc remplacer lappel à cette 
fonction par du code moins généraliste, mais 
beaucoup plus rapide (voir listing du programme). 


Notons finalement qu’ecrire cette partie en 
assembleur n'aurait quasiment pas ammélioré les 
performances, puisque la plus grande partie du temps 
est passé à l’intérieur des fonctions internes qui sont 
(enfin espérons le) déjà optimisées. 


Affichage du logo 


La fonction put_image() permet d’afficher une image 
au dessus d’un fond. Cependant, si cette image 
contient des zones blanches, le fond apparaitra au 
travers, car cette fonction ne faisant qu’une opération 
au niveau du bit n’a aucun moyen de savoir si une 
zone blanche est à l'intérieur ou à l'exterieur d’une 
image ! 


Par exemple, supposons que nous voulons afficher un 
motif quelconque sur un fond hachuré : 


177% 


Si nous exécutons la fonction put_image avec les 
paramêtre NORMAL et OR, nous obtiendrons ceci : 





Si nous voulons obtenir le bon résultat, il faut faire 
une deuxième version de l’image, avec tous les pixels 
intérieurs activés, qui nous servira à créer un cache : 


Nous afficherons ensuite ce cache avec les paramètres 
INVERSE et AND, ce qui nous donnera le résultat 


suivant : z 
CU 


Il ne nous restera plus qu’à afficher l’image originale 
de façon classique (avec les paramètres NORMAL et OR) 
pour obtenir le résultat désiré : 


7 


Pour l'affichage de mon logo, j'ai appliqué ce principe 
dans le but de créer une bordure blanche autour du 
logo (en créant un masque plus grand d’un pixel), afin 
qu’il apparaisse bien détaché du fond. 





Structure du fichier 


Le fichier est constitué d’un en-tête puis des 
enregistrements décrivant les motifs. 


L’en-tête contient une valeur prédéfinie (MAGIC) 
permettant au programme de savoir si il s’agit 
vraiment d’un fichier de motifs. 


Les enregistrements sont constitués des huits octets 
décrivant le motif, suivis de son nom. 


Pour finir, je ne ferais qu’un petit avertissement quant 
à lPutilisation du programme : il y a de grandes 
chances que vous n’ayez aucune difficulté à créer des 
motifs intéressants, jusqu’au moment où vous devrez 
leur donner un nom explicite (qui ne soit pas "passe 
partout")... Si vous passez cette épreuve, n’oubliez pas 
de nous transmettre vos oeuvres ! 


Jacques Belin (123) 
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LE COIN DES CODES 


La compilation de certains programmes, tels ceux 
écrits en assembleur, nécessitent souvent un logiciel 
que ne possèdent pas tous nos lecteurs. Le Coin des 
Codes permet de résoudre ce problème. 


Note importante : 


MËme si la présentation des listings est identique, le 
traitement de ceux-ci est différente suivant le 
programme d’entrée et la machine de destination. 
Chaque listing est prévu pour être entré sur sa 
machine de destination. Par exemple, ne tentez pas 
d'entrer un programme HP48 dans un fichier 
MS-DOS à l’aide du programme Makepos. Vous 
obtiendrez un fichier que vous ne pourrez pas 
transférer dans la HP48. 


Programmes HP28 


Par rapport aux méthodes habituelles sur HP48, notre 
méthode effectuant un calcul local du checksum en 
fin de chaque ligne permet de faciliter la recherche 
d'erreurs, par rapport à une même recherche dans 
une chaîne de plusieurs centaines d’octets. 


Tapez les deux programmes ASscoD.28 et INPUT.28 
avec la plus grande attention car leur mauvais 
fonctionnement peut entraîner un désordre fatal pour 
les objets contenus dans votre machine. La 
commande sPEeen peut être incluse si vous possédez ce 
programme. La commande Asc- peut remplacer les 
lignes avec @@ jusqu’à EVAL. 


ASSCOD.28 


« SPEED RCLF HEX 64 STUS 1 SF " tmpcod’ STO 
“nombre d'octets a chaîne se 
à terminant 
eu à 2 par NEWLINE 
17 INPUT 1 CF STR+ 2 * 16 DUP2 / IP 3 ROLLD MOD 
DuP2 
IF 
THEN 1 + 
END 3 ROLLD 1 + 4 ROLL # Oh DUP+nrfso 
« 1 SAP 
FOR i 
DO “Ligne " "O0" ji 1 - R+B -STR 3 OVER 
SIZE 1 - SUB + DUP SIZE DUP 2 - SWAP SUB 


+ DUP " à chaîne 
chaine à encadrée par 
“+ à 2 NEMLINE 
Misnansées 2nx essai " 
ni< 





IF 
THEN r DUP 4 / IP + SWAP OVER 1 
SAP OVER - SUB SUAP 18 + 
ELSE 38 
END ‘o’ STO + 
m à NEMLINE 
N+ 1 FSC 
IF 
THEN ROT SWAP CLLCD 1 DISP HALT SPEED 
ELSE o INPUT 
END DUP 
MHILE DUP # " POS DUP 
REPEAT DUP2 1 SWAP 1 - SUB 3 ROLLD 
1 + 25 SUB 
IFDUP“N“z 
THEN DROP 
ELSE + 
END 
END DROP O OVER SIZE 1 SWAP 
FOR j OVER j DUP SUB NUM j * + 
NEXT s + DUP # FFFh AND 


æ à NEWLINE 
somme de controle à NEWLINE 
er à NEWLINE 
gun 

6 ROLL SWAP + 34 INPUT STR+ == 
1F 


THEN SWAP DROP 1 
ELSE DROP2 1000 1 BEEP 1 SF 0 
END 
UNTIL 
END ’s’ STO 
WHILE DUP # # POS DUP 
REPEAT DUP2 1 SWAP 1 - SUB 3 ROLLD 1 + 
19 SUB + 
END DROP ‘tmpcod’ DUP RCL ROT + SWAP STO 
NEXT f STOF 
>» tmpcod 
# 20204A04F3D02C67h # F80004F02C96040Ch 
# 8DCCO50B1F804F27h # 313103190F818341h 
# 681808AE91851391h # 45DC061171085168h 
# F3D3CEAA125ESD8Eh # 2F9004h 28 STUS #0 OR 
64 STUS 17 
START # 3B82h SYSEVAL 
NEXT # 20238h SYSEVAL # 4F3Dh SYSEVAL 
EVAL "fin" CLLCD 1 DISP 


88888888 


INPUT 28 


« SWAP 1 
WHILE OVER CLLCD 1 DISP 
REPEAT 
Le] 
UNTIL KEY 
END 
IF DUP MENTER“ == 
THEN DROP 0 





D———————— 














ELSE MOO" i 1 - R-B +STR 3 OVER SIZE 1 - 
IF DUP MBACKM == SUB + DUP SIZE DUP 2 - SWAP SUB + DUP 
THEN DROP 1 OVER SIZE 1 - SUB “ à chaîne commençant 
ELSE + DUP SIZE 3 PICK - 2 + 5 MOD NOT 1 FC? chaine" + par + (neuline) 
AND “ 4 chaîne commençant 
1F — — —— =" à par + (newline) 
THEN MU + à et composée de 4 
END à groupes de 4 
END 1 à CHR 95 obtenus par 
END à a shift bleu x 
END SWAP 60 SUB à 1 espace séparant 
» à 2 groupes 
ni< 
Donc à partir de maintenant pour tout assemblage de IF 
chaîne de codes procédez de manière suivante: THEN 1 r DUP 4 / IP + SUB 
END + 1 FC?C 
1- lancez le programme Asscon.28 IF 
2- donnez le nombre d’octets (1/2 oct. compris) puis THEN Ça) 
validez avec ENTER. ELSE ROT 
3- tapez chaque ligne de codes, correspondant au END INPUT DUP 
numéro de ligne à 3 chiffres, sans les espaces et MHILE DUP # # POS DUP 
validez. REPEAT DUP2 1 SWAP 1 - SUB 3 ROLLD 1 + 
4- tapez la somme de contrôle et validez. S'il y a 25 SUB + 
erreur la ligne de codes sera demandée à nouveau END DROP O OVER SIZE 1 SWAP 
après émission d’un 8EeP. L’appui sur EDIT fera FOR j OVER j DUP SUB NUM j * + 
apparaître la ligne des codes qui pourra être corrigée. NEXT s + DUP # FFFh AND 
Relancez avec CONT. : à “somme de controle" 
5- stockez le programme assemblé dans la variable somme de controle à précédée et suivie 
donnée en tête. = à de + (neuline) 
6- si tout s’est bien déroulé vous pouvez purger tmpcod a puis 3 CHR 95 
qui contient la chaîne de codes. @ (a shift bleu x) 
7 ROLL SHAP + € "a } 
INPUT + OBJ- =: 
Programmes HP48 IF 
THEN SWAP DROP 1 
Ceux qui n’ont pas encore de programme assembleur ELSE DROP2 1000 .5 BEEP 1 SF 0 
pourront procéder de la manière suivante : END 
- par mesure de sécurité sauvegardez vos programmes UNTIL 
et fichiers, éventuellement verrouillez vos cartes END ‘s’ STO ‘’tmpcod’ DUP RCL 
RAM pour devenir ROMs. ROT + SWAP STO 
- tapez le programme AsscoD. NEXT f STOF 
» 
ASSCOD tmpcod 
WHILE DUP # POS DUP 
# 1277h REPEAT DUP2 1 SUAP 1 - SUB 3 ROLLD 1 + MAXR 
884 octets SUB + 
END DROP 
« RCLF HEX 64 STUS -2 SF 1 CF "" ’tmpcod' STO “GROB 8 a si vous avez ASC+ 
“nombre d’octets" 1! INPUT OBJ-+ 2 * 16 OVER SIZÆ 2/4 à JPC 79 page 14 
DUP2 / 1P 3 ROLLD MOD DUP2 + SUAP + STR> a vous pouvez remplacer 
IF # 4O17h SYSEVAL a ces Lignes 
THEN 1 + # 56B6h SYSEVAL à par ASC+ 
END 3 ROLLD 1 + 4 ROLL DROP NEUOB a (plus rapide) 
#0h+nrfs » 
« 1 SWAP 
FOR i Le mode d’emploi est le même que pour la HP28. 
po 
“Ligne “ 











JPC 85 Page 35 — 





ASCX 
# 26C6h 


000: 
001: 
002: 
003: 
004: 
005: 
006: 
007: 
008: 
009: 
O0A: 


0123 


76c2 
8000 
0131 
2918 
0508 
818F 
2004 
1743 
8186 
CD54 
303F 


BYTES28S 
# FOFCh 


000: 
001: 
002: 
003: 
004: 
005: 
006: 
007: 
008: 
009: 
O0A: 
008: 
00c: 
000: 
O0E: 
00F: 
010: 
011: 
012: 
013: 
014: 
015: 
016: 
017: 





XASC 


0123 


7éc2 
F7E3 
FB05 
405E 
0147 
0148 
4713 
CES2 
2c01 
0206 
A74E 
8050 
CoDé 
0713 
F071 
230F 
2508 
6c40 
5BFC 
CF56 
1408 
3257 
EOEF 
1280 


# 338Ch 


000: 
001: 
002: 
003: 


0123 


7éc2 
A000 
4068 
A103 


4567 


O1E3 
8F18 
34E4 
0823 
DA69 
855F 
8D8 
1931 
8615 
E805 
4009 


4567 


O1E3 
3ACD 
E020 
0206 
174€ 
c481 
7179 
109F 
D3F4 
9c20 
7137 
1800 
1340 
5132 
3414 
10AD 
1AF1 
DSBF 
AO7F 
c128 
F880 
1050 
5012 
1109 


4567 


O1E3 
8F18 
F49E 
c481 


| 
| 
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CHP28) 
85.5 octets 


89AB CDEF sm 
Co69 C20D E31 
0501 4313 987 
A201 438A  68F 
2020 8F88 3F8 
3017 4143 006 
0808 2430 C48 
9FOD 8169 A37 
5819 EA80 805 
8017 1160 356 
ES21 AAEC 3C4 
F20 1E6 
CHP28) 

189.5 octets 
89AB CDEF sm 
COA& 0201 C47 
376C 20DF BFD 
F2CO 103F A9F 
9c20 9300 686 
7137 176D 3CC 
8F08 1351 06F 
1411 3580 DIF 
2076 C20F B01 
009F 205€  8FD 
FCOO 0143 544 
0613 58F1 21F 
FFF3 0F15 072 
68F4 9E20 DED 
EE10 8D7C C81 
2130 1690 8E3 
2061 5807 5EC 
20EF 6D62 486 
C224 C40D 362 
6782 0170 032 
142C A120 CFF 
50D2 2080 AB7 
EFCO EF2F  B36 
2E13 ED21 BFC 
F20 éFé 
CHP28) 

91.5 octets 
89AB CDEF sm 
C069 C203 D21 
0501 4713 888 
2007 132€  5E6 
8F09 1027 267 


004: 
005: 
006: 
007: 
008: 
009: 
004: 
008: 


860D 
1281 
2764 
BD7C 
JEAB 
7016 
8145 
5009 


RCLDIR28 
# 34F9h 


000: 
001: 


0123 


7éc2 
0120 


PURGEDIR 
# E95Ch 


000: 
001: 
002: 
003: 


0123 


76c2 
E170 
1205 
20 


DEBUG28S 
# 2176h 


000: 
001: 
002: 
003: 


0123 


7éc2 
F170 
8E05 
A009 


SPEED 
# A389h 


000: 
001: 
002: 


0123 


69c2 
OFFF 
30 


FINDMEM 
# ED36h 


000: 
001: 


0123 


D902 
9020 


6BFA B9E1 1841 073 
8F84 1401 6413 C1A 
0130 1431 3111 699 
F319 3AEA 1580  55C 
0818 6061 5811 12D 
1cF5 1E7D 0011 E3F 
8DCE 5218 D8B0 CE4 
F20 2c7 
CHP28) 

12.5 octets 

4567 89AB CDEF sm 
01E3 C073 7E16 D91 
09F2 0 6E9 
CHP28) 

25 octets 

4567 89AB CDEF sm 
01E3 COSA 7C05  DE8 
76C2 ODFF 8060 C76 
2A60 09F2 009F 9F4 
A86 

CHP28) 

30 octets 

4567 89AB CDEF sm 
O1E3 COSA 7C09 E28 
76C2 0F14 5024 A67 
E020 CAF8 0814 B0A 
F200 9F20 89c 
CHP28) 

17 octets 

4567 89AB CDEF sm 
OD10 0013 2340 807 
1341 5428 D108  7ES 
878 

CHP4B) 

159.5 octets 

4567 89AB CDEF sm 
OFDE 818A B46D FD4 
2C23 0756 60CC  D&D 


002: 
003: 
006: 
005: 
006: 
007: 
008: 
009: 
O0A: 
008: 
00C: 
002: 
00E: 
00F: 
010: 
011: 
012: 
013: 


D202 
4313 
ECEC 
1641 
4713 
1290 
1409 
5101 
1101 
1311 
A217 
1145 
1421 
1020 
2131 
0157 
0130 
1609 


RECOVER 
# AB24h 


000: 
001: 
002: 
003: 
006: 
005: 
006: 
007: 
008: 
009: 
O0A: 
008: 
00c: 
00D: 
00€: 
00F: 
010: 
011: 
012: 
013: 
014: 
015: 
016: 
017: 
018: 
019: 
OA: 
018: 
O1C: 
01D: 
O1E: 
01F: 


0123 


D9D2 
9020 
1008 
0033 
BA83 
817 
D48D 
2158 
43FC 
8086 
21C0 
3068 
0019 
FE16 
E001 
2014 
8846 
1823 
5134 
36c8 
3136 
15E3 
E8FE 
5071 
44E3 
1108 
1003 
3E5C 
D230 
3205 
8087 
DFB2 


1100 8F89 7601 


0164 
ED58 
3213 
5179 
T14A 
E290 
7016 
3015 
4313 
053F 
8F2D 
6480 
sD7c 
63cF 
0152 
1560 
FB21 


4567 


OECE 
AEC8 
F146 
4004 
2cc8 
B108 
0034 
0808 
c21c 
1F01 
D51A 
3019 
7378 
4142 
4213 
A962 
0604 
4048 
26B2 
F164 
1088 
8A2C 
7189 
4214 
818F 
18F8 
1F81 
F310 
1DA8 
0152 
1400 
1308 


AF21 
AE60 
0100 
1371 
3103 
3170 
1cF8 
60A8 
1157 
1371 
7601 
8c13 
F8AF 
1704 
0902 
A871 
3082 


89AB 


819F 
1ccD 
608F 
0713 
ABC6 
8F73 
0000 
61F0 
017A 
7014 
7950 
c277 
0116 
130C 
0143 
8116 
F132 
2014 
08A2 
1428 
FE79 
0110 
7507 
TEE8 
8413 
4141 
4032 
8140 
F207 
0808 
1023 
2130 


AD 
4681 60D 
6780 53C 
1741 FD8 
0913 B4E 
B6A3  8E5 
B6AT  61F 
AF7D 507 
7111 175 
0903 C9% 
1113 805 
TAET 5C7 
3131  16F 
co11 OA3 
cB16 E7A 
BD11 AF3 
1213 675 
130 F46 
CHP48) 
254 octets 
CDEF sm 
F30D FDA 
204D F47 
8976  D6F 
4135 894 
CCBA 92E 
5608 667 
81DC 372 
1701 F6E 
1580  D14 
3FCC B87F 
1421 790 
1168 400 
0146 064 
AD86 E5D 
D831 A40 
0132 59A 
65EF 472 
28A2 OcB 
9016 D2E 
18F8 AEA 
50D2 8E8 
1306  4A1 
1F47 27 
18FA 191 
1140 D74 
1F80 ADB 
FFFA  B02 
6c9F A3E 
608) 923 
6380 52 
0A66 189 
188 
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